Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
    lpstrCommand As String, ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
 mciSendString "play T1 from 1 to 3000", "", 0, 0
End Sub

Private Sub Command2_Click()
 mciSendString "play T2 from 1 to 3000", "", 0, 0
End Sub

Private Sub Form_Load()
  mciSendString "Open " & Chr(34) & App.Path & "\test1.mp3" & Chr(34) & " Alias T1", "", 0, 0
  mciSendString "Open " & Chr(34) & App.Path & "\test2.mp3" & Chr(34) & " Alias T2", "", 0, 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
mciSendString "close T1", "", 0, 0
mciSendString "close T2", "", 0, 0
End Sub
